home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue62 / Alfresco / TestAAHpMin.dpr < prev    next >
Encoding:
Text File  |  2000-08-21  |  1.1 KB  |  53 lines
  1. program TestAAHpMin;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   AAHpMin in 'AAHpMin.pas',
  7.   SysUtils;
  8.  
  9. var
  10.   PtrArray : array [0..127] of pointer;
  11.   i        : integer;
  12.  
  13. begin
  14.   writeln('Testing AAHpMin...');
  15.   try
  16.  
  17.   
  18.     {at this point the replacement heap manager should be installed}
  19.     Assert(IsMemoryManagerSet, 'Heap manager has not been replaced');
  20.  
  21.     writeln('allocate 128 pointers');
  22.     for i := 0 to 127 do
  23.       GetMem(PtrArray[i], Random(512) + 10);
  24.  
  25.     writeln('free every even element');
  26.     for i := 0 to 127 do
  27.       if not Odd(i) then begin
  28.         FreeMem(PtrArray[i]);
  29.         PtrArray[i] := nil;
  30.       end;
  31.  
  32.     writeln('reallocate every odd element');
  33.     for i := 0 to 127 do
  34.       if Odd(i) then
  35.         ReallocMem(PtrArray[i], Random(512) + 10);
  36.  
  37.     writeln('free every odd element');
  38.     for i := 0 to 127 do
  39.       if Odd(i) then begin
  40.         FreeMem(PtrArray[i]);
  41.         PtrArray[i] := nil;
  42.       end;
  43.  
  44.  
  45.     writeln('done');
  46.   except
  47.     on E : Exception do
  48.       writeln(E.Message);
  49.   end;
  50.   write('Press Enter to close...');
  51.   readln;
  52. end.
  53.